unit ActiveFormBase;

{$WARN SYMBOL_PLATFORM OFF}
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,FAXClass_TLB,AxCtrls,FActiveX;

type
  TFormActiveFormBase = class(TFormFActiveX, IActiveFormX)
  private
    FDockForm: TCustomForm;
    FParam: String;
    { Private declarations }
  protected
    procedure InitLibrary; override;
    procedure DestroyLibrary; override;
    procedure InitActiveForm; override;
    procedure DestroyActiveForm; override;
    { Interface function }
    function Get_Properties(const APropertyName: WideString): OleVariant; safecall;
    procedure Set_Properties(const APropertyName: WideString; Value: OleVariant); safecall;
    function ExecuteCommand(const ACommandName: WideString; AParams: OleVariant): OleVariant; safecall;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Initialize; override;
  end;

var
  FormActiveFormBase: TFormActiveFormBase;

implementation

{$R *.dfm}

{ TFormActiveFormBase }

constructor TFormActiveFormBase.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDockForm := Nil;
  FParam := '';

end;

destructor TFormActiveFormBase.Destroy;
begin

  inherited Destroy;
end;

procedure TFormActiveFormBase.DestroyActiveForm;
begin
  inherited DestroyActiveForm;

end;

procedure TFormActiveFormBase.DestroyLibrary;
begin
  inherited DestroyLibrary;

end;

function TFormActiveFormBase.ExecuteCommand(const ACommandName: WideString;
  AParams: OleVariant): OleVariant;
begin

end;

function TFormActiveFormBase.Get_Properties(
  const APropertyName: WideString): OleVariant;
begin

end;

procedure TFormActiveFormBase.InitActiveForm;
begin
  inherited InitActiveForm;

end;

procedure TFormActiveFormBase.Initialize;
begin
  inherited Initialize;

end;

procedure TFormActiveFormBase.InitLibrary;
begin
  inherited InitLibrary;

end;

procedure TFormActiveFormBase.Set_Properties(
  const APropertyName: WideString; Value: OleVariant);
begin

end;

end.
